home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / a / a_funk / packet1.tos / MAILBOX / ST / PIANODEM.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-02-06  |  1.3 KB  |  38 lines
  1. 10    dim b%(16),w%(16)
  2. 20    gosub DRAWSCREEN:gosub SETARRAY
  3. 30    gosub READMOUSE:if button=0 then 30
  4. 40    if y<70 or y>120 then 30
  5. 50    if y<100 then n=b%((x-16)/16.25)
  6. 60    if y>99 then n=w%((x-4)/16.25)
  7. 70    sound 1,15+15*(n=0),n-12*int((n-1)/12),3+int((n-1)/12)
  8. 80    wave 1,1,0,10000:goto 30
  9. 90    READMOUSE:poke contrl,124
  10. 100   poke contrl+2,0:poke contrl+6,0
  11. 110   vdisys(0)
  12. 120   x=peek(ptsout):y=peek(ptsout+2)
  13. 130   button=peek(intout)
  14. 140   return
  15. 150   DRAWSCREEN:color 1,1,1,1,1:fullw 2:clearw 2
  16. 160   for a=50 to 100 step 50
  17. 170   linef 20,a,280,a:next
  18. 180   for a=20 to 280 step 16.25
  19. 190   linef a,50,a,100:next
  20. 200   for a=1 to 11:read s
  21. 210   gosub 250:next:return
  22. 220   data 32.5,48.75,81.25,97.5
  23. 230   data 113.75,146.25,162.5
  24. 240   data 195,211.25,227.5,260
  25. 250   linef s,50,s,78
  26. 260   linef s,78,s+8,78
  27. 270   linef s+8,78,s+8,50
  28. 280   fill s+1,51:fill s+5,51
  29. 290   return
  30. 300   SETARRAY: for a=1 to 16:read w%(a):next
  31. 310   for a=1 to 16:read b%(a):next
  32. 320   return
  33. 330   data 1,3,5,6,8,10,12,13
  34. 340   data 15,17,18,20,22,24
  35. 350   data 25,27
  36. 360   data 2,4,0,7,9,11,0,14,16
  37. 370   data 0,19,21,23,0,26,0
  38. ə③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③③